home *** CD-ROM | disk | FTP | other *** search
/ Business Assistant / Business Assistant.iso / acctg / tonyray1 / codelist.prg < prev    next >
Encoding:
Text File  |  1985-05-25  |  200 b   |  11 lines
  1. USE TWO INDEX VCODE
  2. CLEAR
  3. GOTO TOP
  4. MCOUNT = 1
  5. DO WHILE CODE <='9' .AND. CODE >='1'
  6.    CMCOUNT = STR(MCOUNT)
  7.    FIND '&CMCOUNT'
  8.    DISP OFF CODE+' '+DESCRIPT 
  9.    MCOUNT = MCOUNT+1
  10.    
  11. RETURN